home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 June / Ahoy_Magazine_85-06_1985_Double_L.d64 / duck shoot (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  135 lines
  1. 5 printchr$(142):hs=0:gosub1100:poke53280,0
  2. 10 print""spc(8)"[153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215]"
  3. 20 printspc(7)"[215][158][169][146]                    [223][146][153][209]"
  4. 30 printspc(6)"[153][209][158][169] [146]                     [223][146][215]"
  5. 40 printspc(5)"[215][158][169]  [146]                      [223][146][153][209]"
  6. 50 printspc(4)"[209][158][169]   [146]                       [223][146][215]"
  7. 60 printspc(4)"[215][158]    [146]                        [146][153][209]"
  8. 70 printspc(4)"[209][158]    [146]                        [146][215]"
  9. 80 printspc(4)"[215][158]    [146]                        [146][153][209]"
  10. 90 printspc(4)"[153][209][158]  [146][169][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][223]  [146][215]"
  11. 100 printspc(4)"[215][158][169][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][223][153][209]"
  12. 110 printspc(5)"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  13. 120 printspc(5)"[218][218]   [146][218][218] [146][218][218] [146][218]    [146][218] [146][218][218] [146][218]    [146][218][218]"
  14. 130 printspc(5)"[218][218] [146][218][218] [146][218] [146][218][218] [146][218] [146][218][218][218][218] [146][218] [146][218][218] [146][218][218][218][218][218]"
  15. 140 printspc(5)"[218][218] [146][218][218] [146][218] [146][218][218] [146][218] [146][218][218][218][218]  [146][218][218][218]    [146][218][218]"
  16. 150 printspc(5)"[218][218] [146][218][218] [146][218] [146][218][218] [146][218] [146][218][218][218][218] [146][218] [146][218][218][218][218][218] [146][218][218]"
  17. 160 printspc(5)"[218][218]   [146][218][218]    [146][218]    [146][218] [146][218][218] [146][218]    [146][218][218]"
  18. 170 printspc(5)"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  19. 180 printspc(5)"[158][207][163][163][163][163][208][159]shooting gallery[158][207][163][163][163][163][208]"
  20. 190 printspc(5)"[165]    [206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]    [167]"
  21. 200 printspc(5)"[158][204][164][164][164][206]                  [146][205][164][164][164][186]"
  22. 210 printspc(8)"[158][167][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][146][165]"
  23. 215 printspc(8)"[158][167]                    [146][165]"
  24. 220 ford1=12288to12350:reads1:poked1,s1:next
  25. 230 ford2=12352to12414:reads2:poked2,s2:next
  26. 240 ford3=12416to12478:reads3:poked3,s3:next
  27. 250 v=53248:s=54272:pokev+39,13:pokev+40,7:pokev+21,3:pokes+24,15:pokes,220
  28. 255 m=56320:o=65520:sc=0:tg=0:b=0:r=0
  29. 260 pokes+1,68:pokes+5,15:pokes+6,215:pokes+7,120:pokes+8,100:pokes+12,15
  30. 270 pokes+13,215:p1=192:p2=193:p3=195:x1=100:y1=100:x2=70:h=2
  31. 280 y2=int(rnd(1)*40)+70:r=r+1:pokev+21,3:h=h+.4:ifh>33thenh=h-2.4
  32. 285 forx2=70to255steph
  33. 290 poke2040,p1
  34. 300 poke2041,p2:p2=p2+1:ifp2>194thenp2=193
  35. 310 gosub500
  36. 320 ifjv=1orjv=5orjv=9theny1=y1-4:ify1<68theny1=y1+4
  37. 330 ifjv=2orjv=6orjv=10theny1=y1+4:ify1>118theny1=y1-4
  38. 340 ifjv=4orjv=5orjv=6thenx1=x1-4:ifx1<90thenx1=x1+4
  39. 350 ifjv=8orjv=9orjv=10thenx1=x1+4:ifx1>240thenx1=x1-4
  40. 355 iffr=0andpeek(v+30)and1=1then600
  41. 360 pokev,x1:pokev+1,y1
  42. 370 pokev+2,x2:pokev+3,y2
  43. 400 nextx2:ifr>3thenpokev+21,1:goto900
  44. 410 goto280
  45. 500 jv=peek(m)
  46. 510 fr=jvand16
  47. 520 jv=15-(jvand15)
  48. 530 return
  49. 600 pokev+21,1:pokes+4,129:pokes+4,128:r=0
  50. 605 ifnotpeek(v+30)and1=1then610
  51. 610 pokev+2,70:pokev+3,90
  52. 630 sc=sc+1:ifsc=10orsc=20orsc=30orsc=40orsc=50orsc=60orsc=70orsc=80then700
  53. 650 goto280
  54. 700 forl=1to10:w=0:y=int(rnd(1)*12)+12:x=int(rnd(1)*5)+5
  55. 701 poke783,peek(783)and254:poke781,x:poke782,y:syso:print"[215]"
  56. 705 gosub500
  57. 706 ifjv=1orjv=5orjv=9theny1=y1-4:ify1<68theny1=y1+4
  58. 707 ifjv=2orjv=6orjv=10theny1=y1+4:ify1>118theny1=y1-4
  59. 708 ifjv=4orjv=5orjv=6thenx1=x1-4:ifx1<90thenx1=x1+4
  60. 709 ifjv=8orjv=9orjv=10thenx1=x1+4:ifx1>240thenx1=x1-4
  61. 720 iffr=0andpeek(v+31)and1=1then800
  62. 730 w=w+1
  63. 740 ifsc<40andw=30thensyso:print" ":nextl:print" "
  64. 745 ifsc=>40andw=25thensyso:print" ":nextl:print" "
  65. 750 pokev,x1:pokev+1,y1
  66. 760 ifl<11then705
  67. 780 print" ":goto280
  68. 800 pokes+4,33:pokes+4,32:poke783,peek(783)and254:poke781,x:poke782,y:syso:print" "
  69. 805 tg=tg+50
  70. 810 ifnotpeek(v+31)and1=1thennextl
  71. 820 poke783,peek(783)and254:poke781,x:poke782,y:syso:print" ":goto280
  72. 900 pokev+21,1:cs=sc*25+tg:print""spc(14)"[159]score:"cs
  73. 905 ifcs>hsthenhs=cs
  74. 910 forl=1to10
  75. 920 print""spc(14)"[155]game[146]   over[146]":forg=1to50:nextg
  76. 930 print""spc(14)"[155]game   over":forg=1to50:nextg
  77. 940 nextl:print""spc(11)"high score:"hs
  78. 945 y2=int(rnd(1)*25)+75
  79. 950 forx2=75to255step5
  80. 955 pokev+2,x2:pokev+3,y2
  81. 960 poke2041,193
  82. 970 ifa$=""thenprint""spc(9)"hit any key to start":forg=1to50:next
  83. 980 print""spc(9)"[156]hit any key to start":forg=1to50:next
  84. 985 poke2041,194
  85. 990 geta$:ifa$=""thengoto1000
  86. 1000 ifa$<>""then1020
  87. 1010 nextx2:goto945
  88. 1020 print""spc(14)"             "
  89. 1030 print""spc(14)"           "
  90. 1040 print""spc(9)"                    "
  91. 1045 print""spc(11)"                 "
  92. 1050 goto255
  93. 1100 poke53281,7:poke53280,0
  94. 1120 print"[147]"spc(13)"***[144]welcome***"
  95. 1140 print""spc(14)"duck--shoot"
  96. 1160 printspc(8)"a shooting gallery game"
  97. 1180 printspc(5)"[144]ducks are worth 25 pts each"
  98. 1200 printspc(5)"when you shoot down 10 ducks"
  99. 1210 printspc(5)"you enter a timed target round"
  100. 1220 printspc(5)"targets are worth 50 pts each"
  101. 1230 printspc(5)"the more ducks you shoot[144] down"
  102. 1240 printspc(5)"the faster[144] they will go"
  103. 1241 printspc(5)"when you miss 4 ducks in a row"
  104. 1242 printspc(5)"the game is over"
  105. 1245 printspc(5)"use joystick--port #2"
  106. 1250 print""spc(8)"press any key to begin":forl=1to90:next
  107. 1255 print""spc(8)"[158]press any key to begin":forl=1to10:next
  108. 1260 geta$:ifa$=""then1250
  109. 1270 print"[147]":poke53281,6
  110. 1300 return
  111. 2000 data 0,0,0,0,0,0,0,0
  112. 2010 data 0,0,0,0,0,0,0,0
  113. 2020 data 0,0,0,0,0,0,40,0
  114. 2030 data 0,146,0,1,17,0,1,85
  115. 2040 data 0,1,17,0,0,146,0,0
  116. 2050 data 40,0,0,0,0,0,0,0
  117. 2060 data 0,0,0,0,0,0,0,0
  118. 2070 data 0,0,0,0,0,0,0
  119. 2080 data 0,0,0,0,0,0,0,0
  120. 2090 data 0,0,0,0,0,0,0,0
  121. 2100 data 0,160,0,1,80,0,1,31
  122. 2110 data 0,2,213,0,5,0,2,169
  123. 2120 data 0,11,233,64,53,86,32,238
  124. 2130 data 236,32,21,64,32,5,128,64
  125. 2140 data 0,85,0,0,0,0,0,0
  126. 2150 data 0,0,0,0,0,0,0
  127. 2160 data 0,0,0,0,0,0,0,0
  128. 2170 data 0,0,0,0,0,0,0,0
  129. 2180 data 0,160,0,1,80,0,1,31
  130. 2190 data 0,2,240,0,5,14,2,169
  131. 2200 data 0,11,233,64,53,86,32,239
  132. 2210 data 188,32,21,64,32,5,128,64
  133. 2220 data 0,85,0,0,0,0,0,0
  134. 2230 data 0,0,0,0,0,0,0
  135.